#!/usr/local/bin/perl
use warnings;
sub main()
{
$a = 0;

$b = 0;
$a = 5;

$b = 8;

if (5<8)
 {print "here\n";
}

if (1){print "there\n";
}
 else {$a = 6;
}

if ($a<=5){print 1;
}
 else {if ($b==8){print 2;
}
 else {print 3;
}
}

return 0;
}

main();
